88888 


SSSSS88888 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 

PPPPPPPPPPPP 
PPPPPPPPPPPP 


AOMAAAOIOAOAIOOOONY 
AOMVOOAOOOAIAIAIOOOOY 
AOAOAOOAQAAIOAOOOOONY 


000000000 

000000000 

000000000 
000 


000 
000000000 
000060000 
000000000 
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**FILE**1D**OPCOMDATA 

000000 PPPPPPPP ccccccce 000000 MM MM DDDDDDDD AMADAA TTTTTTITIT AAAAAA 
000000 PPPPPPPP cccccccc 000000 MM MM DDDDDDDD AAAAAA TTTTTTTTIT AAAAAA 

00 00 PP PP CC 00 00 MMMM MMMM DD DD AA AA TT AA AA 

00 OO PP PP CC 00 00 MMMM MMMM DD DD AA Ab TT AA AA 

00 00 PP PP CC 00 0O MM MM MM DD DD AA AA TT AA AA 

00 00 PP rP tt 00 00 MM MM MM DD DD AA AB TT Aa AB 

00 00 PPPPPPPP cc 00 00 MM MM DD DD AA Ab TT AA AA 

00 00 PPPPPPPP cc 00 00 MM MM OD DD AA Aa TT AK Aa 

00 00 PP cc 00 00 MM MM DD DD AAAAAAAAAA TT AAAAAAAAAA 

00 00 PP cc 00 00 MM MM DD DD AAAAAAAAAA TT AAAAAAAAAA 

00 00 PP cc 00 00 MM MM DD DD AA Ag TT AA AA cece 

00 00 PP cc 00 00 MM MM DD DD AA Ab TT AA AA cece 
000000 PP cccccccc 000000 MM MM DDDDDDDD AA AA TT AA AA cece 
000000 PP cccccccc 000000 MM MM DDDDDDDD AA AA TT Aw AA sees 

LL III] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III! SSSSSSSS 

LLLLLLLLLL III] SSSSSSSS 
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OPCOM. SRCJOPCOMDATA.B32; 1 (1). 


| 
; O0¢ MODULE eee (8115852), 
; 4 S02 
; 5 BR? : BEGIN 
: ? Ooe 1 SRR AREER AREER ERAEE ERE ERA AAE ETAT AAAEAAAEAAERRREREREEEEEEEE 
; 008 1 !* * 
; g 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | 
; 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ ! 
: 1} Batt : ALL RIGHTS RESERVED. * | 
; Mel * i 
; ig $018 1 !* THIS SOFTWARE IS A ag ta UNDER A LICENSE AND MAY BE USED AND COPIED * \ 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * | 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHE * 
; 1 B28 1 !* COPIES THEREOF - NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ! 
: 1 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
3 18 Bas : 4 TRANSFERRED, * | 
; ; * ! 
: 0 0020 1 !* THE ee oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUI°MENT * | 
; $$ 8p ; : 7 CORPORATION. * 
s if ® 
: $e 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 25 0025 1 i* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
: $$ B05$ 1 !e * { 
; 7 0027 1 !« . { 
2 28 0098 1 eee eee eee ERE RA RARE AAA AERA E EAA RAAT E RARER AAARAER AAA A Hee eee ) 
H 9 0 1 
3 0 0030 1 !++ { 
: 1 0031 1 ! Facility: ‘ 
; ¢ O03 1! ( 
; Hi 0033 1! OPCOM ' 
: 0034 1! ‘ 
; $2 0035 1 ! Abstract: ( 
; 6 0036 1! ‘ 
3 * 0037 1! This module contains the definitions of the data structures used ‘ 
; 3 Base : by OPCOM. ALL global variables and constants are defined here. | 
: 40 0040 1 ! Environment: ' 
; 43 boe2 i VAX/VMS i t 1 
; operating system 
| 2 9068 1 i weep ry Be 1 
: «644 Bote 1 ! Author: 1 
; «645 045 1! if 
: 646 O68 1! Steven T. Jeffreys 1 
: «647 047 1! 1 
; «648 048 1 ! Creation date: if 
; «49 049 1! 1 
3 30 BReo ' December 16, 1980 | 1 
; 52 36 1 ! Revision history: 
; & 053 1! 
; «54 054 1! V03-004 CWH3169 CW Hobbs 5-May-1984 
3 5 ae Second oss for gvscer-wide OPCOM: 
s 6 2$ }! - Add BYPASS _PRIV 
2 7 057 1! ° Change timér delta from 15 seconds to 5 minutes 


OPCSOPCOMDATA ab -1984 AX-11 Bliss-32 V4.0-74 Pa 2. 
vere 1b-Se0-1984 9}; 3h; ee OPCOM.SRCJOP COMDA ATA.B 83551 > (1) | 
: 28 33 } : - Add SYI_SWPOUTPGCNT and LOGTIME_COUNTER, reorder data | 
: 60 60 1: V03-003 CwH3003 CW Hobbs 16-Sep-1983 

: 6) be) : Add an audit trail 

: 6 0 : ii v03-002 CWH300' Cw Hobbs 30-Jul-1983 

; 664 64 1! Various and sundry things to make OPCOM distributed 
: 65 BR? ! across the cluster. 

: 6 0% 1 | v03-001 $TJ3030 Stev . Jeffreys, 05-0ct-1982 

; «668 068 1! - Added Aige head tor. in plicitly canceled requests. 
: i 534 ! - Defined FLUSH_PENDING Global Status flag. 

: 71 0071 1 | vO2-004 $TJ0220 Steven T. Jeffre 17-Feb-1982 

; 4 6078 : - Added List head tor implicitly ‘Gisabled operators. 

; 7 0074 1 v02-003 $TJ0158 Steven T. Jeffreys, 8-Feb-1982 

; p Ba oe : = Increased time stamp wait time to 5 minutes. | 
. 0077 1/3 v02-002 $T0081 Steven T. Jeff reys 2-Aug-1981 

; 4 th . Changed default logfile name to SYSSMANAGER:OPERATOR.LOG. 

: 80 0080 1 i-- 

3.6 CB 0081 1 

3 8 Bogs 1 LIBRARY ‘SYSSLIBRARY: LIB. L32°; 

; § 00. 1 LIBRARY ‘LIB$:OPCOMLIB'; 

;  B4 0084 1 

s 85 0085 1! 

; 686 0086 1 ! NOTE: Global storage is arranged to improve page faulting behaviour. The 

3; 87 0087 1! following order is attempted: 

; 688 0088 1! = data used only during initialization 

; wy 0089 1! - infrequently used data 

: 90 0090 1! - frequently used data 

3 91 0091 1! 

3; F 0092 1 GLOBAL 

. 0093 1 ! 

; 0094 1 ! OPRENABLE message used by OPCOM_INIT to enable 

:; «#695 0095 1 ! the default operator terminal, OPAO. The message 

3 38 Bna8 ' is not broadcasted. 

: 98 098 1 MSG1 : $bblock peace Sy tt ee ' OPAO ENABLE request 

: 99 0099 1 INITIAL (WORD (ASGS_ ! Message type code 

: 100 0100 1 ORD (0) ! No reply ma 

: 101 101 1 LONG he i Privilege aesk 

: 44 1 § 1 LONG (-1) ! Privilege nets | 
: 10 103 1 LONG (2x'610004") , ' Sender OIC = | 
> 104 104 1 LONG (ZASCII'SYST'), i Username = "'SY afte ’ 
: 105 B10? 1 LONG (ZASCII°EM '‘), ' 

: 106 196 1 LONG (ZASCII' ot ! 

: 107 1 1 LONG (ZASCII'SYST'), ' Account = “’SYSTEM “' 

: 108 108 1 LONG (ZASCII°EM '‘), ! 

: 109 109 1 BYTE (4), ' Base priority 

3 a9 119 ’ BYTE (0), ' Unused 

: 118 118 1 BYTE (OPC$_X_OPRENABLE), ' Set request code 

: 11 113° (1 BYTE (OPCSR_SYSTEM), ' Set scope to SYSTEM 

; «1146 0114 #1 LONG (OPCSM—NOBR : 


| 
Dd). ! Do not broadcast this message | 


Fe a se ns ss 8 Ss 


OPC OMDATA 1B-sep-1 1984 AX-11 Bliss-32 V4.0-74 Page 3) 
Obs 808 1 ~3007 138% 9}: 3); 8 OPCOM. SRC JOPCOMDATA.B32;1 . a1) 
1 LONG (OPCSM ww ste ! Make OPAO a permanent operator 
1 LONG (KNOWN-ATTN_MASK{), i Receive all requests 
1 LONG CENOWNS ATIN “MASK2), 
1 LONG (1), ' Set request ID 
1 LONG (0), ' vlc 
BYTE (4) ' Character count 
, LONG (ZASCII'OPAO') ! Operator device name 
OPAO_ENABLE_MSG : $bblock (CDSCSK_S ge Descriptor for OPAO enable request 
INITIAL (LONG (OPCSK_COMHDRSIZ+31), LONG (MSG1)), 


' 
' LOGFILE INIT yon used by OPCOM_INIT to 
initialize the system operator log file. 


5 i 
; 7 
5 15 | 
0 0 
1 1 
g § | 
i i | 
| 
9 : | 
0 0 MSG2 : $bblock poeces COmNBRS TEeata ' LOGFILE INIT request 
1 1 INITIAL (WORD (ASG$_OPRQST), ! Message type code 
¢ § WORD (0) ! No reply mailbox 
LONG (-15, ! Privilege mask 
4 LONG (-1) : Bb ry: 
5 5 LONG (2x"610004") , i Sender UIC = 
6 6 LONG (ZASCII'SYST‘), i Username = SYSTEM " 
7 LONG (ZASCII'EM ‘), ! 
8 LONG (ZASCII' "Fe : 
9 9 LONG (ZASCII'SYST'), ' Account = ‘SYSTEM ‘ 
40 40 LONG (ZASCII'EM '‘), : 
41 41 BYTE (4), ! Base priority 
rs | ¢g BYTE (0), ! Unused 
44 44 BYTE (OPC$_X_LOGFILE), ' Set request code 
45 45 BYTE (OPCSR_SYSTEM), ' Set scope to SYSTEM 
46 46 LONG (0) : 
47 47 LONG (OPCSM_ INITLOG), ! Initialize the logfile 
48 48 LONG (OPCSM_NM_CENTRL), ' Notify CENTRAL operators 
49 49 LONG (0), ! Unused 
50 50 LONG (a) ; mppuest ID 
51 51 LONG (0), ! ul 
26 26 BYTE (4) ' Character count 
37 e7 , rons (ZASCII"OPAO') ! Operator device name 
55 3¢ LOGF ILE_MSG : Sbblock roses K_S B ! Descriptor for LOGFILE INIT request 
28 2$ INITIAL (LONG (OP tsk. NeOMHDRSIZ#31), LONG (MSG2 ), 
28 38 End of init-only data 
60 60 
61 61 ‘ 
66 $¢ Define RMS control structures for the logfile. 
64 
65 
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64 LOGFILE_RES : VECTOR CNAMSC_MAXRSS, BYTE], ! Result name string 
65 P LOGF ILE~NAM : SNAM ( 
68 P 66 RSA=LOGFILE_RES ' Result buffer address 
67 P 6 RSS=NAMSC_MAXRSS i Result buffer Length 
44 P 63 LOGF ILE_FAB : SFAB ( 

0 P 9 FAC=(PUT), ! WRITE access only 

71 P 017 RAT=CR, ' Record ATtributes 


VMVNVVNVNVNNRNN 22 ooo 


for each class of operator. 


tem wmm ecm mc an wean ence oceeeoeans a eeaoe + 


H Pointer to first OCD 


$e een e etree wraee ceases SwreBnone aroma a en} 


: Length of OCD List ' 


tees moet ec ane ease enema en core nae a 


Co: 
COON 


GROUP, and USER, as we 
The if 
OCD data structures. 


OCD_VECTOR : VECTOR C8,LONG), 


et dt sd a a ts a a tt 


i] 

Various and sundry useful variables. 
DISABLED_OPER_Q : VECTOR [2] 
CANCELED_RQST_Q : VECTOR (C2 


DIDI tt tk kk tk hh 


BVISSSLESRALLESEIEALFLATE= 


UNKNOWN_MESSAGE_COUNT : LONG 
REQUEST-NUMBER ~: LONG 


NMrorororn 
SELESE 
NUM eS BPOOSOSSOOOOOOOO woonovono 
OSS we AFI UHOSS NEAR WUE SSe Ue Rhee 


OPER“IDERT_NUM : WORD, 
OPER“MBX_NAME =: $string_desc ('_MBA2:'), 
DEVICE FRO : 


$string_desc ('TAC!UW'), 
MBX $string_desc ('MB!UW'), 
LOGFILE _OPEN 


: LONG, 
: $bblock 


ee ee em ee me mm ee ee ed ed od ed od dd 8 8d dd 8 dd td td 
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10 
\ 
18 
14 
15 BYPASS_PRIV 8) 
16 PRESET (CPRVSV_BYPASS) = 1), 
Ht LCL_NODENAME : $desc_block; 
19 : 
; GLOBAL 
SEQ_WIDTH_DEF : LONG INITIAL (2¢8), 
4 SEQ_WIDTH : LONG, 
5 SEQ_SEED : LONG, 
LCL_NOD : Sref pbigck. 
8 NOD_HEAD : VECTOR C2, LONG) 


H 4 
16-Sep-1984 01:31: AX-11 Bliss-32 V4.0-74 
1 ~Sep- 3be 93:25:28 OPCOM. SRETOPCOMDATA.033; 1 
17 P 017 ORG=SEQ, ' Sequntial file 
17 P ig RFM=VAR : Variable Length records 
74 P 0174 NAM={OGf ILE NAM i Name block 
75 P 0175 FNM="SYSSMARAGER:OPERATOR.LOG' 
i f ; 
8 P £8 LOGFILE_RAB : SRAB ( 
7 P 4 ,FAB=LOGFILE_FAB 
1 6 
: The following data structure is vector of List headers 


The format of the List head is: 


(Longword) 


(Longword) 


INITIAL (DISABLED_OPER_Q,DISABL 


There is one such onary for each class of operator, SYSTEM, 
l as a spare entry at the end of the vector. 
st pointed to by the list header is a doubly Linked List of 


List head 
ED ig 
INITIAL CEANCELED_ROST CANCELED 


st hea 

-RQST_Q), 

Count of unknowm message types received 
Current request number 

Sequence returned by CLUSUTIL_NEXT_SEQUENCE 
Channel to MBA2 

Current oper ident 

String descriptor 

Device FAO control string 

FAO control string 

Boolean 

Mask to enable or clear BYPASS priv 


' Local nodename (DECnet or VAXcluster) 


Define segments for cluster data, most have no meaning unless GBLSTS_K_IN_VAXcluster is true. 


ae bits for index, two for sequence 

of see 

bit seed to make unique sequence numbers 
D for the local node 

ointer to NOD block for local node 

Queue header for all node blocks 


PIPINPIPIPIPINPININININININIDININININPINININININININININY PD 


| 
‘ | 
voo-000 1e$ee3Re O4:95:22 YOSSI EES, Re * 


3 9 9 } INITIAL (NOD_HEAD, NOD_HEAD); 

: 231 1 GLOBAL BIND 

; § ! WAIT_DELTA = UPLIT (5 * 60 * -10000000, -1);! Wait time for timer AST (5 minutes) | 

; 4 1 GLOBAL | 

3 5 5 1 SY1_SWPOUTPGCNT : LONG, ! Swap out page count 

3 § 1 LOGTIME_COUNTER : LONG INITIAL (100), ! Used to otene logfile every so | timestamps, 

; ! ! initial to large # so first time it stamps. 

; id 33 ; | Define the global status bitvector. It is used to maintain status info global to all of OPCOM. 

241 41 1 GLOBAL_STATUS : BITVECTOR (32); 

i $t “$j: 

: 264 44 1! Define SCB table. Each entry describes a type of data structure. 

; 245 45 1! The information kept on each data structure type includes the size 

: 46 re 1! Cin Byeeee of the data structure, the sequence number of the data 

3; 247 0247 1 ! structure, the count of preallocated data structures 4 6 on a 

; 248 8 48 1! look-aside List (LAL), and the LAL header. The SCB table is indexed 

3; 249 49 1! by the data structure type. The type is defined by the SCB_DEF 

; 250 8 50 1 ! macro, which makes the SCB_DEF invocations order independent. 

: 251 51 1! The SCB table has a 1 origin. 

Bo BRT! 

: 254 3 54 1 ZASSIGN (COUNTER,1); ! Set table origin 

; 255 55 1 PSECT GLOBAL = $SCB‘ TABLE; 

; 256 0 28 1 PSECT OWN = $SCB_TABLE; | 

; 257 57 1 GLOBAL 

; 28 38 : SCB_TABLE : VECTOR (0); ! Start of SCB table 

: 260 0260 1 i Define table entries. Input parameters are the structure type 

; re 0 of : and the number of structures to preallocate for the look-aside List. 

; 68 $§ 1 SCB_DEF (RQCB,32); 

> 264 0264 1 SCB-DEF (MCB, $2); 

; 265 0265 1 SCB_DEF (OCD,4); 

: 66 66 1 SCB-DEF (NOD,16); 

: See eB 1! 

: 269 69 1 | Define the minumum and maximum data structure types. 

: 270 70 1 ! Note that this must come after the Last SCB_DEF macro 

3 a A! : call, as the macro defines the literals referenced. 

: 7 7 1 GLOBAL LITERAL | 

: 275 75 1 MIN_DS_TYPE = MIN (RQCB_K_TYPE, | 

: 37% 7% 1 MCB_R TYPE, | 

: e7 77 «1 OCD_K_TYPE, 

: re f : MOOK THPE 

: 280 01 . 

; 281 11 MAX_DS_TYPE = MAX (RQCB_K_TYPE, 

: § § a MCB_R_TYPE, 

3 1 OCD_K_TYPE, 

; 4 1 NOD"K~TYPE | 

4 5 5 1 . 
| 
| 


ively) 
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3 1! 

: $ } Define the minimum and maximum SCOPE values. 
; § $j. MIN_SCOPE = MIN (OPCSK_SYSTEM, 
$ 1 OPCS$K_GROUP, 
a. | Se aE bie 
OY iy 

; 295 95 1 MAX_SCOPE = MAX  (OPCSK_SYSTEM, 
; 396 6 I OPC$K~GROUP, 
i $8 6 4 OPE SK-UNSREC 
; 3 80 Br 

: 301 ‘ 01 1 GLOBAL BIND 

; 4 4 ! ascid_INVALIDRQCB = ZXASCID ‘Invalid RQCB in cluster message’ : block C, BYTE]; 
; 304 6 04 1 END 

; 305 0305 0 ELUDOM 


-TITLE OPCSOPCOMDATA 
IDENT \v04-000\ 


-PSECT SSCB_ENTRY,NOEXE,2 
0020 0094 00000 SCB: -WORD 148, 32 
# 00004 4 


00 -BYTE 
00000000' 8 e142 000. -ADDRESS SCB+8, SCB+8 
00 00 he Bote SCB: . ue ;* 
00000000° 90000000" 0018 -ADDRESS SCB+8, SCB+8 
0004 0008 00020 ScB - WORD 16, 4 
00# 00024 -BYTE C4 
00000000" 00000000" 00028 -ADDRESS SCB+8, SCB+8 
0010 0056 00050 ScB: -WORD 86, 16 
00# 000 BYTE 0C4) 
00000000* 00000000° 000 -ADDRESS SCB+8, SCB+8 


-PSECT $SCB_TABLE,NOEXE,2 

00000 SCO, TABLE: 
0000 SCB_TBL:.ADDR 
0004 SCB"TBL:.ADDR 
0008 SCB"TBL:.ADDR 
0000C SCB"TBL:.ADDR 
<PSECT $PLIT$,NOWRT,NOEXE,2 


45 50 4F 3A 52 45 +AAA: ASCII \SYSSMANAGER: OPERATOR.LOG\ 


o—™row 


‘ \_MBA2:\ 
: ASCII \TAC!UW\ 
AAD: ASCII \MB!UW\ 
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| 

90000000" f .ADDRESS P.AAA ; | 
LONG : 

4 BYTE 4 3 
0000 -LONG ; 
C WORD : 
E BYTE : 
023F “BYTE : 
900000 0 40 LONG ; 
000 00 44 » LONG : 
0 48 ~WORD : 
4A BYTE 3 
0 00248 -BYT 3 
00000000 4¢ ~LONG ; 

01 00250 LOGFILE RAB: 

44 00251 “BYTE 68 ; 

9000 0252 .WORD 0 ; 

0000 900 0254 “LONG 0 F 
00000000 00258 .LONG 0 ; 
00000000 025¢ .LONG 0 ; 

0 00# 00260 “WORD 03) ; 

000 00266 “WORD 6 ; 
00000000 00268 “LONG 3 

0000 9036¢ SWORD 0 F 

00 0026 ‘BYTE 0 ; 

90 00 6F ‘BYTE 0 ; 

0000 00270 . 0 ; 

9000 00 72 ” 0 ; 
00000000 00274 LONG ; 
00000000 90378 .LONG 0 ; 
00000000 0027¢ “LONG 0 ; 
00000000 00280 -LONG 0 ; 

0 00284 “BYTE 0 ; 
0 00285 -BYTE 0 : 
0 0386 ‘BYTE 0 ; 

00 00 “BYTE 0 ; 
00000000 00288 LONG ; 
00000000" 00 ac “ADDRESS LOGFILE_FAB ; 
00000000 00 ;LONG 0 ; 

0294 OCD -VECTOR: : 32 
00000000" 00000000' 00284 DISABLED. OPER 
ADDRESS “DISABLED_OPER_Q, DISABLED_OPER_Q : 
00000000" 00000000" 002BC CANCELED -ROST 
DDRESS: CANCELED _RQST_Q, CANCELED_RQST_Q : 
002C4 UNKNOWN HESSAGE. COUN 
002c8 REQUEST NUMBER: : , 
oo2cc NEXT SEQUENCE : : 
002D0 OPER_MBX_CHAN: : 
“BLKB 2 | 
00202 OPER_IDENT_NUM:: 
.BCKB 2 | 
| 


AFR e POA h ae FORO Fk Ok Pe Fhe Phe POR Fhe PUN POA Pe Phen PON PA PO PO Pe Phe PON PA PO Ps Ps 


om. mi Ph mm ms MLPA 


a 968 980 oun ee ee es 


OPCSOPCOMDATA Sep-1984 01:31:20 AX-11 Bliss-32 V p 1 
904-000 1B-Sep-1984 93:24:20 OPCOM. SRCIOPC PCOMDA ae: 31 — 8 
0006 002D4 OPER_MBX_NAME: : 

006 DC DEVICE_FAO: 

1 D “BYTE 14, 1 ; 
00009006: 00360 -ADDRESS P. AAC : 
0005 00264 MBX_FAO:: 
we i, 1 ; 
00000098" OO38 DDRESS P.AAD ; 
C LOGFILE OPENS: : 


LK 
00# 002FO BYPASS Pave “ 
20 00 3F5 BYTE $f ; 
O2F “BLKB 4 
002F8 LCL -NODENAME : : 
0000000A 00300 SEQ_wIDTH DEF: 
00304 SEQ_WIDTH:: 
00308 SEQ_SEED:: 


8 
10 3 


4 
. 4 
0030C LCL_CSID:: 
-BLKB 4 
00310 LCL_NOD:: , 
00000000' 00000000' 00314 NOD_HEAD:: 
ADDRESS NOD_HEAD, NOD_HEAD ; 
0031C SYI -SWPOUTPGCNT 
00000064 00320 LOGTIME = COUNTER: : 
00324 GLOBAL STATUS: 


WAIT_DELT 
RQCB"K_TY 


00809006" 20908 Baa : 
| 


IDRQCB== 


Name Bytes Attributes 


| 
| 
PSECT SUMMARY | 
$GLOBALS 808 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 


AAA AOA OCA AOA OA PAO UNUOuUAL ania VA 


RMB AMAMAAAAAAA OR 


OPC OMDATA b-se $ep-1984 AX-11 Bliss-32 V4.0-74 
905-008 i Ht 9}: 3); 8 OPCOM. SRCJOPCOMDATA.B3 31 
; SPLITS 92 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SSCB_TABLE 7 NOVEC, WRT, RD, WOELE ND NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; we SCB_ENTRY 64 NOVEC, WRT, RO, R, LCL, REL, CON,NOPIC,ALIGN(2) 
3 ABS . 0 NOVEC,NOWRT,NORD [NOEXE, *NOSHR: LCL, ABS, CON,NOPIC,ALIGN(O) 
: Library Statistics 
3 esoceese Syabols ococces= Pages Processing 
: File Total Loaded Percent Mapped Time 
; ~$25580UAz8: SYSLIBILIB.L32;1 18619 39 0 1009 00:01.9 
; $255S$DUA28 : LOPCOM. OBJ OPCOMLIB. L32;1 633 7 4 4 :00.8 
3 COMMAND QUALIFIERS 
P BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:OPCOMDATA/OBJ=OBJ$:OPCOMDATA MSRC$:OPCOMDATA/UPDATE=(ENH$:OPCOMDATA) 
; Size 0 code + 980 data bytes 
; Run Time :10.2 
: S Elesced Time: Opzeye6 


: Lines/CPU Min: 

3; Lexemes/CPU-Min: 30266 
$ Y Used: 91 pages 
; Compilation Complete 


~ 
a 


6: 
64 
6/ 
6/ 
6! 
6! 
6/ 
6! 
6! 
6! 
64 
6! 
6! 
6! 
6! 
6! 
6! 
6! 
6! 
6! 
6! 
6 
61 
6 
6 
64 
6 
64 
6¢ 
64 
6 
6; 
61 
6 
6i 
6 
61 
6 
6i 
63 
6i 
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